(DEFPROP POINTERS T SPECIAL) 

(DEFPROP DELNO T SPECIAL) 

(DEFPROP LASTSTMT T SPECIAL) 

(DEFPROP DELFLAG T SPECIAL) 

(DEFPROP FLARE T SPECIAL) 

(DEFPROP SENSITIVELIST T SPECIAL) 

(DEFPROP FLAG T SPECIAL) 

(DEFPROP FLARELIST T SPECIAL) 

(DEFPROP WEIGHT T SPECIAL) 

(DEFPROP DELAY T SPECIAL) 

(DEFPROP NREF T SPECIAL) 

(DEFPROP QWORD T SPECIAL) 

(DEFPROP GLOBX T SPECIAL) 

(DEFPROP GLOBY T SPECIAL) 

(DEFPROP TERMIN T SPECIAL) 

(DEFPROP RESTSENT T SPECIAL) 

(DEFPROP ANGER T SPECIAL) 

(DEFPROP FEAR T SPECIAL) 

(DEFPROP MISTRUST T SPECIAL) 

(DEFPROP ANGER0 T SPECIAL) 

(DEFPROP FEAR0 T SPECIAL) 

(DEFPROP MISTRUST0 T SPECIAL) 

(DEFPROP SUPPRESS T SPECIAL) 

(DEFPROP TRACEV T SPECIAL) 

(DEFPROP X T SPECIAL) 

(DEFPROP DLIM T SPECIAL) 

(DEFPROP DELNLIST T SPECIAL) 

(DEFPROP DELVLIST T SPECIAL) 

(DEFPROP DELALIST T SPECIAL) 

(DEFPROP LIVEFLARES T SPECIAL) 

(DEFPROP DEADFLARES T SPECIAL) 

(DEFPROP DELEND T SPECIAL) 

(DEFPROP SKEP T SPECIAL) 

(DEFPROP REST T SPECIAL) 

(DEFPROP LASTTOP T SPECIAL) 

(DEFPROP AJUMP T SPECIAL) 

(DEFPROP FJUMP T SPECIAL) 

(DEFPROP TELL T SPECIAL) 

(DEFPROP NLIST T SPECIAL) 

(DEFPROP TVAL T SPECIAL) 

(DEFPROP SACTS T SPECIAL) 

(DEFPROP WEAK T SPECIAL) 

(DEFPROP INTERPERS T SPECIAL) 

(DEFPROP EOF T SPECIAL) 

(DEFPROP MESSAGE T SPECIAL) 

(DEFPROP ENDE T SPECIAL) 

(DEFPROP TALK T SPECIAL) 

(DEFPROP SAVE_FILE T SPECIAL) 

(DEFPROP FILE1 T SPECIAL) 

(DEFPROP FILE2 T SPECIAL) 

(DEFPROP REMARK T SPECIAL) 

(DEFPROP CHAR T SPECIAL) 

(DEFPROP VALUE T SPECIAL) 

(DEFPROP CONCEPT T SPECIAL) 

(DEFPROP WORD T SPECIAL) 

(DEFPROP SL T SPECIAL) 

(DEFPROP FL T SPECIAL) 

(DEFPROP DN T SPECIAL) 

(DEFPROP DV T SPECIAL) 

(DEFPROP AN T SPECIAL) 

(DEFPROP AV T SPECIAL) 

(DEFPROP ANV T SPECIAL) 

(DEFPROP AL T SPECIAL) 

(DEFPROP QL T SPECIAL) 

(DEFPROP RL T SPECIAL) 

(DEFPROP WTS T SPECIAL) 

(DEFPROP WT T SPECIAL) 

(DEFPROP STMT T SPECIAL) 

(DEFPROP REPLY T SPECIAL) 

(DEFPROP ANS T SPECIAL) 

(DEFPROP QWORD T SPECIAL) 

(DEFPROP ANS T SPECIAL) 

(DEFPROP QWORD T SPECIAL) 

(DEFPROP QWORD T SPECIAL) 

(DEFPROP ENDE T SPECIAL) 

(DEFPROP VALUES T SPECIAL) 

(DEFPROP SPECQUES
 (LAMBDA (INP)
  (PROG (WORD WD FOUND QA PAIR VALUE)
        (SETQ QA (GET (QUOTE ANSWERS) LASTSTMT))
        (COND
         (QA
          (PROG (&V &L1)
                (SETQ &L1 QA)
           LOOP (COND ((NULL &L1) (GO EXIT)))
                (SETQ PAIR (CAR &L1))
                (SETQ &L1 (CDR &L1))
                (SETQ &V (SETQ FOUND (MEMBER1 (CAR PAIR) INP)))
                (COND (FOUND (RETURN &V)))
                (GO LOOP)
           EXIT (SETQ PAIR NIL)
                (RETURN &V))))
        (COND
         (FOUND
          (SET (QUOTE VALUE) (PROG NIL (SET (QUOTE LASTSTMT) (CADR PAIR)) (RETURN (CHOOSEDEL (CADR PAIR)))))))
        (COND
         ((NOT FOUND)
          (COND
           ((AND (AND (AND (MEMBER (QUOTE THEY) INP) (OR (MEMBER (QUOTE DO) INP) (MEMBER (QUOTE ARE) INP)))
                      (*LESS (LENGTH INP) 4))
                 (EQ (CAR INP) (QUOTE Q)))
            (SET (QUOTE VALUE) (QUOTE (THAT'S RIGHT)))))))
        (COND (VALUE (PROG NIL (DELCHECK VALUE) (SAY VALUE))))
        (RETURN VALUE)))
EXPR)